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3 1 1 ZTITLE “EDTSKEYPAD = keypad definitions’ | 

3 ¢ ¢ MODULE EDTSKEYPAD ( ! Keypad definitions 

3 Fg sOENT = 'v04-000' ! File: KEYPAD.BLI Edit: JBS2017 | 

i * = | 

3 5 096 ! BEGIN | it 
: § 007 ; leueenneennenareneencrennenncereereeerereertertrntentnnerentneetnetnntentens se 
. -* * 

3 $ 808 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 008 
; 010 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 001 
; 1) at) : e ALL RIGHTS RESERVED. : Bae 
: ig ooi8 1 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 000 
: 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * OOF 
: 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * O1¢ 
; 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY a OOF 
3 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

; Hs itt : > TRANSFERRED. . | 

; 0 B054 1 is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE % 

3 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

é $8 Bo5§ : - CORPORATION. : 

: 4 0034 1 i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

; ? 85 ? ! i: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 4 

: 2? 0027 1 is e 

3 Bose : alata aia iain iach haath tetanic 

: 30 0030 1 

: 1 0031 1 !+4¢ 

3 4 O03 : FACILITY: EDT == The DEC Standard Editor 

: 4 0034 | ABSTRACT: 

; 6 0036 1! This routine will contain the routines to initialize the keypad 

s 37 0037 1! translation table. It also contains the default definitions for 

3 $8. site: : for the keys. 

; 40 0040 | ENVIRONMENT: Used in all EDT configurations. 

* . | 

3 4g sk : AUTHOR: T. Mitchell | 

; 44 O4b 1 i MODIFIED BY: | 

; 48 peg : Dan Szymanski, 30-JUL-80, 01 

: 48 48 1: Tables modified so that the default definitions 

:; «649 049 1! for GOLD A, D, E, T. Ww. and Z are the same as corresponding 

; “9 pee ! : CONTROL char. Definitions for accent and grave removed. 

; 52 O26 1: $-00 - Regularized the module and routine headers. JBS 13-Feb-1981 

) 3 0055 1 ! 2-005 - Extraneous definitions for accent and grave deleted. Default 

; 054 1! keypad definitions for GOLD <- and GOLD -> (for VT100) deleted. | 

; 2 055 1! DJS 17-Feb-1981 

: 6 B26 1! . 4 = Corrected a minor error in the header. JBS 25-Feb-1981 

$ 57 0057 1 ! 2-005 - Fix module name. JBS 10-Mar-1981 
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STER: cto OS ACIKEYPAD. BLI;1 eee (1) 


: 8 8 38 1! 2- $ = Don't make keypad text giebet. pS age r-1981 

3 9 1! @- - Use the new message codes. Bs 04 

; @& 8 0 1! 2- 8 - Add documentation for HELP in oleae. “na. 43° Nov-1981 

061 1! 2- - EDTSDEFK returns a status. JBS 1 io 986 

3 6 0062 1 ! 2-010 = Change cail to out _ASG 8 MSG BFL MB 17-Jun-1982 

: «6 0063 1 | 2-011 = Correct the ident.” JBS 01-Jul-1982 

; @& 0064 1! “hig - Take extra spaces out of GOLD 7 key definition. she 22-Jul-1982 
s; 65 B20? 1 ! 2-015 = Add GOLD and revise the format of the tables for the new 

3 066 1! implementation of defined keys. JBS 1 fo” “i 

; «67 0067 1 ! 2-014 = Make GOLD GOLD = GOLD, for compatibility, BS 1 Auge 1982 

; 68 0068 1 ! 2-015 = Make ESC insert an 05808 - for compatib sity. 185, 05-Sep-1982 

: ) 64 . 3 “B18 - . d conete tenet for VT qvopert.. J JBS 11-Feb-1 

3 0 Q : -017 = Fix the VT52 definitions of control S$ and control T. JBS 26-Aug-1983 
: 1 
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eee 


3 O73 ] XSBTTL ‘Declarations’ 

a. 75 1! TABLE OF CONTENTS: 

Fe B78 : 4 

;. Boe 1 

3 79 of8 1 REQUIRE ‘EDTSRC: TRAROUNAM': 

; 0517 1 

; 8 0518 1 FORWARD ROUTINE 

. = 0519 1 EDTSSDEF _DFLTK; ! Define a lot of keys 

® F 0520 1 

; 0521 1! 

3 5 5 ¢ 1 ! INCLUDE FILES: 

3 6 5 1! 

: 7 524 (1 

: 8 0525 1 REQUIRE ‘EDTSRC:EDTREQ'; 

; 6«8B9 0660 1 

3 90 bees 1 LIBRARY ‘EDTSRC:KEYPADDEF'; 

ee 2. eq) 1 

; 9 066 1 LIBRARY ‘EDTSRC:SUPPORTS'; 

; (Cog 0664 1 

; 694 0665 1! 

; | 69S 0666 1 ! MACROS: 

3 0667 1! 

a. aw 0668 1! NONE 

; 0669 1! 

: 99 0670 1 ! EQUATED SYMBOLS: 

; 100 0671 1! 

: 101 0672 1! NONE 

3 106 0673 1! 

s 170 0674 1 ! OWN STORAGE: 

: 104 0675 1! 

: 105 0676 1! NONE 

: 106 0677 1! 

s 107 0678 1 ! EXTERNAL REFERENCES: 

; 108 0679 1! | 

: 109 0680 1! In the routine 

3; 6110 0681 1 i <BLF /PAGE> 
| 
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CTERM_VT52) : 
TABLE = VT52_TABLE; 


CTERM_VT100) : 
TABLE = VT100_TABLE; 
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tet EDTSSDEF _DFLTK “ Define the default keypad 12-828718 4 99:53:38 DIEKSUNGHASTER-CEDT SRC SKEVPAD.OLI;1 . (6) 

: rs 398 ! ZSBTTL ‘EDTSSDEF_DFLTK = Define the default keypad’ : 
: te ae : GLOBAL ROUTINE EDTSSDEF _DFLTK ! Define the default keypad ; 
3 = 3 
s re 38 1 t¢ $ 
; 34 a3 ! } FUNCTIONAL DESCRIPTION: : 
: 91 13 Define the default keypad, for either the VT100 or the VT52. Any keys ; 
: 20 317 ; } already defined are tit alone. Peres : 
; 3 $319 1 | FORMAL PARAMETERS: : 
3 H 8 9 1! 3 
r) 4 9 1! NONE 3 
; 355 09 § 1! : 
3 28 09 1 ! IMPLICIT INPUTS: 3 
: 3D 0924 1! 3 
3 3558 0925 1! NONE 3 
; 359 09 $ 1! F 
s r¢ 88 i ! IMPLICIT OUTPUTS: : 
; 6¢ 09 9 1 EDTS$$G_TRN_TBLINIT Set to 1 to indicate that the table is initialized : 
: 364 0931 1 | ROUTINE VALUE: : 
; 365 09 ; 1! 3 
; 366 09 1! 1 = success, even value = an error from EDTSSDEFK F 
; 367 0934 1! $ 
: 368 0935 1 ! SIDE EFFECTS: 3 
; 369 0936 1! 3 
; 370 0937 1! NONE 3 
3; Sri Baa8 1! 3 
3 7 0939 1 !- F 
3 7 0940 BEGIN 3 
3 74 0941 ; 
s S75 094 EXTERNAL ROUTINE : 
; 76 094 EDTSS$ ‘ ' Define a bey ; 
; AA Boge EDTSSF IND_KEY; ! Find the definition of a key : 
: 379 §9 EXTERNAL : 
: 380 94 EDTS$$G_TRN_TBLINIT, ' Set to 1 after the table is initia. ized ; 
; 381 pee EDTS$$G_TI_TyYP; ' The type of terminal : 
; LOCAL : 
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IF ( NOT .STATUS) THEN RETURN (.STATUS); 
END; 
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END 
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; Routine Size: 109 bytes, Routine Base: _EDTSCODE + 039E 


9444 1 
998 1 !<BLF/PAGE> 


432 
; Lexemes/CPU-Min: 10396 
; ry Used: 133 pages 
; Compi.ation Complete 


[—— 7 Sglanicanietiihapaennaiiinibeeneiniinn lh 
11 

VO-000  —sEDISSDEF-DFLIK © Define the default keypad — Ia-Sepn-1984 19:23:58 DISKSUMGMASTERSCEDT SRCSKEVPAD.BLI;1"°%° <P) 

: c34 44.84 } END ! of module EDTSKEYPAD : 
: 435 1001 0 ELUDOM 
; PSECT SUMMARY : 
; Name Bytes Attributes ; 
;  EDTSCODE 1035 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) : 
; Library Statistics ; 
; ecenaeee Symbols -------- Pages Processing : 
; File Total Loaded Percent Mapped Time ; 
i; -$255$DUA2B:CEDT.SRCJEDT.L 32:1 377 12 3 40 00:00.2 
: TpeSseouase: EDT. SRCJRETPADOEF (42:1 3% : 36 , 00:00:1 
: -$55$puace:CEDT-SRCISUPPORTS -i $251 2 1 $8 5 00:00.1 : 
; COMMAND QUALIFIERS 3 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACEBACK/LIS=LIS$:KEYPAD/OBJ=OBJ$:KEYPAD MSRC$:KEYPAD.BLI/UPDATE=(ENHS$: KEYPAD) : 
; i ae 109 gode » + 926 data bytes ; 
; bbe y Time: i 3:0 : 
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